home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / editor / blksedtr.lha / BED / Rexx / RemoveBlankLines.bed < prev    next >
Text File  |  1996-05-06  |  327b  |  25 lines
  1. /*
  2. ** $VER: RemoveBlankLines.bed 1.0 (02.01.96)
  3. **
  4. ** Remove all empty lines from the current document
  5. */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. SetDisplayLock ON
  10. SetInputLock ON
  11.  
  12. MoveSOF
  13.  
  14. SetStatusBar "Removing blank lines..."
  15.  
  16. DO UNTIL RC ~= 0
  17.     GetChar
  18.     IF RC ~= 0 THEN DeleteLine; ELSE MoveDown
  19. END
  20.  
  21. MoveSOF
  22.  
  23. SetInputLock OFF
  24. SetDisplayLock OFF
  25.